home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 196 / 196.d81 / autofile maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  651b  |  20 lines
  1. 1 rem * ramlink autofile maker *
  2. 2 rem * simplified by rasta's cleaver *
  3. 10 dv=16:rem * default rl device # *
  4. 20 dr$="f-key def":rem * directory *
  5. 30 fl$="startup file": rem * program *
  6. 100 f$="/"+dr$+"/:"+fl$:rem * path *
  7. 110 ad=49152:hb=int(ad/256):lb=ad-hb*256:rem * buffer *
  8. 120 wr=0:gosub210:rem * read from *
  9. 122 pokead,128:rem * enable (0=off) *
  10. 130 pokead+1,0:rem * basic (128=ml) *
  11. 135 pokead+2,lb:pokead+3,hb
  12. 140 pokead+4,dv:rem * device # *
  13. 150 fori=0tolen(f$)-1:pokead+8+i,asc(mid$(f$,i+1,1)):next:rem * prg name *
  14. 160 pokead+8+len(f$),0
  15. 162 wr=1:gosub210:rem * write to *
  16. 199 :end
  17. 200 rem * read & write sector *
  18. 210 sys57513:poke56865,0:poke56866,6:poke56867,lb:poke56868,hb:poke56869,255
  19. 220 poke56864,128+16*wr:sys65057:return
  20.